﻿Public Class FrmRegistrarProducto

    Private Sub FrmRegistrarProducto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' error milagros , este codigo  sirve parea registrar un nuevo producto
        ' por lo tanto nos vamos a la parte del boton.
        
        'Dim myproducto As New Producto

        'myproducto.CodigoProducto = TXTCodigo.Text
        'myproducto.NombreProducto = TXTNombre.Text
        'myproducto.TipoProducto = TXTTipo.Text
        'myproducto.MarcaProducto = TXTMarca.Text

        'Dim contenedor As New frmContenedor
        'contenedor.ListaProductoTotales.AddFirst(myproducto)

    End Sub

    Private Sub BTNRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNRegistrar.Click
        'Dim myproducto As New Producto

        'myproducto.CodigoProducto = TXTCodigo.Text
        'myproducto.NombreProducto = TXTNombre.Text
        'myproducto.TipoProducto = TXTTipo.Text
        'myproducto.MarcaProducto = TXTMarca.Text

        'CType(Me.MdiParent, frmContenedor).ListaProductoTotales.AddFirst(myproducto)
        'MsgBox("SE REGISTRO AL PRODUCTO")
        'Me.Hide()

        Try

            Dim myconeccion As New Conexion
            myconeccion.conectar()
            Dim consulta As String

            consulta = "insert into PRODUCTO values ('" + TXTNombre.Text + "','" + TXTTipo.Text + "','" + TXTMarca.Text + "')"
            myconeccion.consulta(consulta)
        Catch ex As Exception
            MsgBox(ex)

        End Try
    End Sub
End Class